home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_167_sound import.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  1.6 KB  |  40 lines
  1.  global colorauthoringpath
  2.   global importwhere
  3.   global importpath
  4.   global importfilew
  5.    if the short name of this stack is "Resgenie‚Ñ¢" then
  6.     showdialog 1, "503","Please use Resedit to edit these files. Sorry, but it's for your own good!" ,"True"
  7.     do restext ("TEXT", "Exit", colorauthoringpath)
  8.   end if
  9.   put the long name of this stack into importwhere
  10.   delete word 1 of importwhere
  11.   delete char 1 of importwhere
  12.   delete last char of importwhere
  13.   if there is a window importfilew then close window importfilew
  14.   answer file "Choose any file to import sound resources from:"
  15.   if it is empty then  do restext("TEXT", "Exit", colorauthoringpath)
  16.   set cursor to watch
  17.   put it into process
  18.   put process into ImportPath
  19.   put  FullResList("T=snd ", "O=TNIS", "W=" & process) into resdata
  20.   if word 1 of resdata is "Error" then
  21.     answer resdata
  22.     do restext ("TEXT", "Exit", colorauthoringpath)
  23.   end if
  24.   if resdata is empty then
  25.     answer "There is nothing here to import."
  26.     do restext("TEXT", "Exit", colorauthoringpath)
  27.   end if
  28.   put the last char of process into holdfilename
  29.   delete last char of process
  30.   repeat until it is ":"
  31.     get the last char of process
  32.     if it is not ":" then  put it before char 1 of holdFileName
  33.     delete the last char of process
  34.   end repeat
  35.   put holdFileName into ImportFileW
  36.   put "Import: " before char 1 of importfilew
  37.   do sort resdata
  38.   if the number of lines of resdata is 1 then put return & "    " after line 1 of resdata
  39.   Listoid Importfilew, resdata, "one", "Import it:", "blue,white", "Chicago","12", "0", "250, 10"
  40.   do restext ("TEXT", "importsoundlist", colorauthoringpath)